!
!            2 DIMENSIONI
!
!     -2 <= xi <= 2
! 
!     fmin=-22.2725; x1=0.00584; x2=1.5658
!-----------------------------------------------------
!
      subroutine odessa11(x,n,f)
!
      integer n
      real*8 x(n),f,r
!
      a=0.3d0
      r=0.0d0
      do i=1,n,2
        r=(sin(x(i))/a)**2+r
      end do
      do i=2,n,2
        r=(cos(x(i))/(a*2.0d0))**2+r
      end do
      if(r.ne.0.0d0) r=sqrt(r)
        f=(1.0d0/(cos(14.0d0*r)+((-r**2+4.0d0))+(r**4-11.0d0)+6.0d0))* &
          (exp(-r))-r**2  
!
      return
      end    
